home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / Extras / SysGen / @BITS < prev    next >
Encoding:
Text File  |  1988-04-03  |  454 b   |  20 lines
  1.  
  2. \ @BITS !BITS
  3.  
  4. EXISTS? COMP  NOT
  5. .IF   : COMP  -1 XOR ;
  6. .THEN
  7.  
  8. : @BITS ( n offset bits --- bit-of-n )
  9.      >R -SHIFT  -1 R> +SHIFT  COMP AND ;
  10.  
  11. : !BITS  ( n n1 offset bits --- n'-or-bits-of-n1  )
  12.    2 X>R   -1 2 RPICK  +SHIFT DUP >R COMP AND
  13.    2 RPICK  +SHIFT
  14.    ( n  n1-bits-in-position  )  ( bits offset bits-of-0's -R-)
  15.    SWAP  R> COMP R> +SHIFT COMP AND OR RDROP ;
  16.  
  17. \  all work BTD. 3/29/85
  18. \  it would be faster to look up the mask in a table.
  19.  
  20.